(default-input-method): Fix custom type.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 34fff500454ea42e7961b42481da4643f1c30abc..7c71193f5f313b036a8173b2afec3c9267a4ca9a 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -735,7 +735,7 @@ If nil, that means no input method is activated now.")
 This is the input method activated automatically by the command
 `toggle-input-method' (\\[toggle-input-method])."
   :group 'mule
-  :type 'string)
+  :type '(choice (const nil) string))
 
 (defvar input-method-history nil
   "History list for some commands that read input methods.")